﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	论坛城市页面
'	2011.11.2



Sub main
	Dim baseArray,cityArray(34)
	baseArray = "北京|上海|天津|重庆|河北|山西|内蒙古|辽宁|吉林|黑龙江|江苏|浙江|安徽|福建|江西|山东|河南|湖北|湖南|"&_
					"广东|广西|海南|四川|贵州|云南|西藏|陕西|甘肃|宁夏|青海|新疆|香港|澳门|台湾|其他"
	cityArray(0) = "东城|西城|崇文|宣武|朝阳|丰台|石景山|海淀|门头沟|房山|通州|顺义|昌平|大兴|平谷|怀柔|密云|延庆"'北京
	cityArray(1) = "黄浦|卢湾|徐汇|长宁|静安|普陀|闸北|虹口|杨浦|闵行|宝山|嘉定|浦东|金山|松江|青浦|南汇|奉贤|崇明"'上海
	cityArray(2) = "和平|东丽|河东|西青|河西|津南|南开|北辰|河北|武清|红挢|塘沽|汉沽|大港|宁河|静海|宝坻|蓟县"'天津
	cityArray(3) = "万州|涪陵|渝中|大渡口|江北|沙坪坝|九龙坡|南岸|北碚|万盛|双挢|渝北|巴南|黔江|长寿|綦江|潼南|铜梁|大足|荣昌|壁山|"&_
					"梁平|城口|丰都|垫江|武隆|忠县|开县|云阳|奉节|巫山|巫溪|石柱|秀山|酉阳|彭水|江津|合川|永川|南川"'重庆
	cityArray(4) = "石家庄|邯郸|邢台|保定|张家口|承德|廊坊|唐山|秦皇岛|沧州|衡水"'河北
	cityArray(5) = "太原|大同|阳泉|长治|晋城|朔州|吕梁|忻州|晋中|临汾|运城"'山西
	cityArray(6) = "呼和浩特|包头|乌海|赤峰|呼伦贝尔盟|阿拉善盟|哲里木盟|兴安盟|乌兰察布盟|锡林郭勒盟|巴彦淖尔盟|伊克昭盟"'内蒙古
	cityArray(7) = "沈阳|大连|鞍山|抚顺|本溪|丹东|锦州|营口|阜新|辽阳|盘锦|铁岭|朝阳|葫芦岛"'辽宁
	cityArray(8) = "长春|吉林|四平|辽源|通化|白山|松原|白城|延边"'吉林
	cityArray(9) = "哈尔滨|齐齐哈尔|牡丹江|佳木斯|大庆|绥化|鹤岗|鸡西|黑河|双鸭山|伊春|七台河|大兴安岭"'黑龙江
	cityArray(10) = "南京|镇江|苏州|南通|扬州|盐城|徐州|连云港|常州|无锡|宿迁|泰州|淮安"'江苏
	cityArray(11) = "杭州|宁波|温州|嘉兴|湖州|绍兴|金华|衢州|舟山|台州|丽水"'浙江
	cityArray(12) = "合肥|芜湖|蚌埠|马鞍山|淮北|铜陵|安庆|黄山|滁州|宿州|池州|淮南|巢湖|阜阳|六安|宣城|亳州"'安徽
	cityArray(13) = "福州|厦门|莆田|三明|泉州|漳州|南平|龙岩|宁德"'福建
	cityArray(14) = "南昌|景德镇|九江|鹰潭|萍乡|新馀|赣州|吉安|宜春|抚州|上饶"'江西
	cityArray(15) = "济南|青岛|淄博|枣庄|东营|烟台|潍坊|济宁|泰安|威海|日照|莱芜|临沂|德州|聊城|滨州|菏泽"'山东
	cityArray(16) = "郑州|开封|洛阳|平顶山|安阳|鹤壁|新乡|焦作|濮阳|许昌|漯河|三门峡|南阳|商丘|信阳|周口|驻马店|济源"'河南
	cityArray(17) = "武汉|宜昌|荆州|襄樊|黄石|荆门|黄冈|十堰|恩施|潜江|天门|仙桃|随州|咸宁|孝感|鄂州"'湖北
	cityArray(18) = "长沙|常德|株洲|湘潭|衡阳|岳阳|邵阳|益阳|娄底|怀化|郴州|永州|湘西|张家界"'湖南
	cityArray(19) = "广州|深圳|珠海|汕头|东莞|中山|佛山|韶关|江门|湛江|茂名|肇庆|惠州|梅州|汕尾|河源|阳江|清远|潮州|揭阳|云浮"'广东
	cityArray(20) = "南宁|柳州|桂林|梧州|北海|防城港|钦州|贵港|玉林|南宁地区|柳州地区|贺州|百色|河池"'广西
	cityArray(21) = "海口|三亚|五指山|琼海|儋州|文昌|万宁|东方|定安|屯昌|澄迈|临高|白沙|昌江|乐东|陵水|保亭|琼中|西沙|南沙|中沙"'海南
	cityArray(22) = "成都|绵阳|德阳|自贡|攀枝花|广元|内江|乐山|南充|宜宾|广安|达川|雅安|眉山|甘孜|凉山|泸州"'四川
	cityArray(23) = "贵阳|六盘水|遵义|安顺|铜仁|黔西南|毕节|黔东南|黔南"'贵州
	cityArray(24) = "昆明|大理|曲靖|玉溪|昭通|楚雄|红河|文山|思茅|西双版纳|保山|德宏|丽江|怒江|迪庆|临沧"'云南
	cityArray(25) = "拉萨|日喀则|山南|林芝|昌都|阿里|那曲"'西藏
	cityArray(26) = "西安|宝鸡|咸阳|铜川|渭南|延安|榆林|汉中|安康|商洛"'陕西
	cityArray(27) = "兰州|嘉峪关|金昌|白银|天水|酒泉|张掖|武威|定西|陇南|平凉|庆阳|临夏|甘南"'甘肃
	cityArray(28) = "银川|石嘴山|吴忠|固原|中卫"'宁夏
	cityArray(29) = "西宁|海东|海南|海北|黄南|玉树|果洛|海西"'青海
	cityArray(30) = "乌鲁木齐|石河子|克拉玛依|伊犁|巴音郭勒|昌吉|克孜勒苏柯尔克孜|博尔塔拉|吐鲁番|哈密|喀什|和田|阿克苏"'新疆
	cityArray(31) = "中西区|东区|九龙城区|观塘区|南区|深水埗区|黄大仙区|湾仔区|油尖旺区|离岛区|葵青区|北区|西贡区|沙田区|屯门区|大埔区|荃湾区|元朗区"'香港
	cityArray(32) = "花地玛堂区|圣安多尼堂区|大堂区|望德堂区|风顺堂区|氹仔|路环"'澳门
	cityArray(33) = "台北|高雄|台中|台南|屏东|南投|云林|新竹|彰化|苗栗|嘉义|花莲|桃园|宜兰|基隆|台东|金门|马祖|澎湖"'台湾
	cityArray(34) = "北美洲|南美洲|亚洲|非洲|欧洲|大洋洲"'其它
	Dim userid,body_,a,tmp,tmpArray
	Dim base,baseUbound,city,cityUbound
	Dim userRegTime,timeInterval,result
	Dim formarray(2)
	a=getN("a", 0)
	base=getN("base", 0)
	city=getN("city", 0)
	tmp = ""
	userid=user_array(0)
	userRegTime=user_array(5)
	timeInterval = DateDiff("d", userRegTime, time_now)
	checkLogin()'验证登录
	hu.title = "修改城市"
	body_ = checkMsg()'信息
	body_ = body_ & "[div=nav]-"&hu.url("?aid=index","首页")&"-"&hu.url("bbs_user.asp","会员中心")&"-修改城市[/div]"
	baseArray = Split(baseArray, "|")
	baseUbound = UBound(baseArray)
	if base>baseUbound then base = baseUbound
	Select Case a
		Case 0'搜索该城市会员
			'由 bbs_users.asp 页面处理
			body_ = body_ & "参数错误!"
		Case 1'修改省份
			formarray(0) = http_path&"bbs_city.asp?a=2||post||提交||选择所在省份或地区:<br/>"
			For i=0 To baseUbound
				tmp = tmp & i &"$$" & baseArray(i) & "||"
			Next
			formarray(1) = "select||base$$0||"& tmp &""
			formarray(2) = "hidden||"&bbsSid&"$$"&sid&"||"
			body_ = body_ & hu.getForm(formarray) & "<br/>[div=tip]温馨提示:<br/>城市修改消费50"&bbsPoint&"[/div]"
		Case 2'修改城市
			city = cityArray(base) & "|其他"
			city = Split(city, "|")
			formarray(0) = http_path&"bbs_city.asp?a=11||post||提交"
			For i=0 To UBound(city)
				tmp = tmp & i &"$$" & city(i) & "||"
			Next
			formarray(1) = "select||city$$0||"& tmp &""
			formarray(2) = "hidden||"&bbsSid&"$$"&sid&"||base$$"&base&"||"
			body_ = body_ & "所在<u>"& baseArray(base) &"</u>,选择所在城市或地区:<br/>" & hu.getForm(formarray) & ""
		Case 11'保存修改
			tmpArray = Split(cityArray(base)& "|其他" , "|")
			cityUbound = UBound(tmpArray)
			if city>cityUbound then city = cityUbound
			city = baseArray(base) &"-" & tmpArray(city)
			If timeInterval >30 Then 
				billMoney =0'账单,计算会员修改资料消费
				billPoint =-50
				billExpr =0
				Call setUserAmountBySelf(userid, billMoney&","&billPoint&","&billExpr)
			End If
			hu.conn("update 74hu_user set [city]='"& city &"' where id="&userid)
			body_ = body_ & "修改成功！<br/>"&hu.url("bbs_user.asp","返回会员中心")
	End Select
	hu.body = comUbb(body_)
End Sub

%>